C# / VB.NET - [VB.NET] - Cambiare frase all'interno della label

Forum - C# / VB.NET - [VB.NET] - Cambiare frase all'interno della label

Cobra (Normal User)
Rookie

Messaggi: 29
Iscritto: 04/11/2011

Postato alle 15:54
Giovedì, 28/03/2013

Salve a tutti ragazzi,
ho eseguito lo stream da un file di testo ed alla linea 3 ho questa frase: "Nom. Cogn. Via", lo stream di tale linea viene riportato su una label, ma, ho due domande da porvi:

- è possibile, una volta effettuato lo stream, trasformare, per esempio, il termine "Nom." con "Nome", "Cogn." con "Cognome" e così via?
- è possibile, data sempre la medesima riga, fare in modo che, a fine di ogni termine, il successivo vada a capo? Per esempio, da quella stringa che ho postato sopra ("Nom. Cogn. Via"), ottenere:

"Nome
Cognome
Via"

vi posto il mio codice anche se sono consapevole che il procedimento non è corretto.

Codice sorgente - presumibilmente VB.NET

Dim file As New StreamReader("miotesto.txt")
        Dim linea(500) As String
        Dim i As Integer
        a = 0
        While Not file.EndOfStream
            linea(i) = file.ReadLine()
            a = a + 1
        End While
        file.Close()
label1.text=linea(3)
  If Label1.Text.Contains("Nom.") Then
label1.text="Nome"
        End If

Sperando di ricevere un aiuto da parte vostra, vi ringrazio in anticipo e vi auguro buona pasqua

Ultima modifica effettuata da Cobra il 30/03/2013 alle 14:05

tuttodiMC (Normal User)
Expert

Messaggi: 327
Iscritto: 29/10/2012

Postato alle 14:52
Sabato, 30/03/2013

Penso che per andare a capo tu debba mettere il classico \n però dovresti prima fare lo split dela riga e quindi separare le singole parole, poi mandare a capo.

Cobra (Normal User)
Rookie

Messaggi: 29
Iscritto: 04/11/2011

Postato alle 15:17
Sabato, 30/03/2013

Ho provato questo, ma restituisce in label solo l'ultima parte della riga, ovvero "Via"

Codice sorgente - presumibilmente VB.NET

Dim file As New StreamReader("miotesto.txt")
            Dim linea(500) As String
            Dim i As Integer
            a = 0
            While Not file.EndOfStream
                linea(i) = file.ReadLine()
                a = a + 1
            End While
            file.Close()
    Label1.text=linea(3)
Dim v As String = Label1.text
            Dim var As String() = v.Split("."c)
            For i As Integer = 0 To var.GetUpperBound(0) - 1
                Label1.Text = var(i)
            Next

keyblade95 (Normal User)
Newbie

Messaggi: 2
Iscritto: 28/03/2013

Postato alle 11:13
Domenica, 31/03/2013

Con il ciclo for, devi concatenare le stringhe splittate, non assegnarle (altrimenti una stringa verrà sostituita dalla successiva):

Codice sorgente - presumibilmente VB.NET

Dim v As String = Label1.text
Dim var As String() = v.Split("."c)
For i As Integer = 0 To var.GetUpperBound(0) - 1
    Label1.Text &= var(i)         'oppure se vuoi andare a capo: Label1.Text &= var(i) & vbCrLf
Next

Per sostituire i nomi, usa il Metodo Replace di String:

Codice sorgente - presumibilmente Plain Text

Label1.Text = Label1.Text.Replace("Cogn." , "Cognome")

Cobra (Normal User)
Rookie

Messaggi: 29
Iscritto: 04/11/2011

Postato alle 9:57
Martedì, 02/04/2013

Ok perfetto, grazie mille!!!